with Ada.Text_IO;use Ada.Text_IO;
procedure communautes_test_class(x : in out communaute'Class) is
	c: String:="";
begin
   Put_Line("Que voulez-vous faire ?");
   Put_Line("1 - Inscription");
   Put_Line("2 - Blocage");
   Put_Line("3 - Deblocage");
   Put_Line("4 - AjouterCercle");
   Put_Line("5 - SupprimerCercle");
   Put_Line("6 - Ajouter membre");
   Put_Line("7 - Supprimer membre");
   Put_Line("8 - Ajouter Post");
   Put_Line("9 - Ajouter Commentaire");
   Put_Line("10 - Supprimer Commentaire");
   Put_Line("11 - Supprimer Commentaire");
   Put_Line("A - Etat de la communaute");
   Put_Line("Q - Quitter");
	 case c is
      when "1" =>
         Put_line("Entrez un id");
         x:= Inscrire(x, Individu'Value(Get_Line));
      when "2" =>
         Put_line("Entrez votre id");
         I:= Individu'Value(Get_Line);
         Put_line("Entrez id de la personne que vous voulez bloquer");
         J:= Individu'Value(Get_Line);
         x:= Bloquer(x, I, J);
      when "3" =>
         Put_line("Entrez votre id");
         I:= Individu'Value(Get_Line);
         Put_line("Entrez id de la personne que vous voulez debloquer");
         J:= Individu'Value(Get_Line);
         x:=Debloquer(x, I, J);
      when "4" =>
         Put_line("Entrez votre id");
         I:= Individu'Value(Get_Line);
         Put_line("Entrez nom du cercle");
         U:= Cercle'Value(Get_Line);
         x:=Ajouter_cercle(x, I, U);
      when "5" =>
         Put_line("Entrez votre id");
         I:= Individu'Value(Get_Line);
         Put_line("Entrez nom du cercle");
         U:= Cercle'Value(Get_Line);
         x:=Retirer_cercle(x, I, U);
      when "6" =>
         Put_line("Entrez votre id");
         I:= Individu'Value(Get_Line);
         Put_line("Entrez id de la personne que vous voulez ajouter");
         J:= Individu'Value(Get_Line);
         Put_line("Entrez nom du cercle");
         U:= Cercle'Value(Get_Line);
         Ajouter_membre (x, U, I, J);
      when "7" =>
         Put_line("Entrez votre id");
         I:= Individu'Value(Get_Line);
         Put_line("Entrez id de la personne que vous voulez supprimer du cercle");
         J:= Individu'Value(Get_Line);
         Put_line("Entrez nom du cercle");
         U:= Cercle'Value(Get_Line);
         Retirer_membre(x, U, I, J);
      when "8" =>
         Put_line("Entrez votre id");
         I:= Individu'Value(Get_Line);
         Put_line("Entrez nom du cercle");
         U:= Cercle'Value(Get_Line);
         Put_line("Entrez votre text");
         T:= Texte'Value(Get_Line);
         x:= Poster (x, I, U, T);
      when "9" =>
         Put_line("Entrez votre id");
         I:= Individu'Value(Get_Line);
         Put_line("Entrez nom du cercle");
         U:= Cercle'Value(Get_Line);
         Put_line("Entrez votre text");
         T:= Texte'Value(Get_Line);
         x:= Commenter (x, I, U, T);

      	 --when "10" =>
      	 --when "11" =>
         --when "A"|"a" =>
         when "Q"| "q"  => Skip_Line; exit;
         when others => Skip_Line;
         end case;
end communautes_test_class;
